home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / vaxt.lha / vaxt / tsystem / unvax_start_t.s < prev    next >
Text File  |  1987-12-28  |  628b  |  31 lines
  1.         .globl big_bang
  2.         .globl _start_t
  3.         .globl interrupt_dispatcher
  4.         .text
  5.  
  6. _start_t:  .word 0
  7.         movl  ap,sp                   
  8.         moval interrupt_handler,r0
  9.         moval big_bang,r4             # closure
  10.         movl -2(r4),r10
  11.         jmp  (r10)
  12.  
  13. interrupt_handler:
  14.         .word 0
  15.         pushl r10
  16.         pushl r9
  17.         pushl r8
  18.         pushl r7
  19.         pushl r6
  20.         movl ap,r9
  21.         moval interrupt_dispatcher,r4
  22.         movl -2(r4),r10
  23.         jsb (r10)
  24.         movl (sp)+,r6
  25.         movl (sp)+,r7
  26.         movl (sp)+,r8
  27.         movl (sp)+,r9
  28.         movl (sp)+,r10
  29.         ret
  30.  
  31.